program si_ze
implicit none
integer, dimension(4,5) :: a
inTEger :: b !B 
b = 1
! B = 2
write(*,*) b
! write(*,*) B

do b = 2,2
    write(*,*) b
end do

write(*,*) size(a)


end program si_ze
